2002-07-04 Per Abrahamsen <abraham@dina.kvl.dk>

	* simple.el (toggle-truncate-lines): New command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 41012fe8c94139496a1234c0084e4fec6976a8e9..7081a91e9409d4a2e4947df47d701c5fd0cd8ccc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-07-04  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+       * simple.el (toggle-truncate-lines): New command.
+
 2002-07-04  Miles Bader  <miles@gnu.org>
 
        * comint.el (comint-displayed-dynamic-completions): New variable.

diff --git a/lisp/simple.el b/lisp/simple.el
index f3fbbec58a8d9efc6bb94156d05f2ea4521195a0..f2c4f24b404230c3f4a3260b4a41775fee775fd4 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3189,6 +3189,15 @@ The variable `selective-display' has a separate value for each buffer."
   (prin1 selective-display t)
   (princ "." t))
 
+(defun toggle-truncate-lines (arg)
+  "Toggle whether to fold or truncate long lines on the screen.
+With arg, truncate long lines iff arg is positive."
+  (interactive "P")
+  (setq truncate-lines
+       (if (null arg)
+           (not truncate-lines)
+         (> (prefix-numeric-value arg) 0))))
+
 (defvar overwrite-mode-textual " Ovwrt"
   "The string displayed in the mode line when in overwrite mode.")
 (defvar overwrite-mode-binary " Bin Ovwrt"